home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / fb386 / sai64 / sa64edit.bas < prev    next >
BASIC Source File  |  1993-11-30  |  4KB  |  89 lines
  1. 10 CLS 0
  2. 20 LOCATE 35,2:PRINT"****注****"
  3. 30 LOCATE 10,4:PRINT"ＳＴＩＬＥ　１～１７は初めから入っています”"
  4. 40 LOCATE 10,5:PRINT"ＳＴＩＬＥ　３９はＥＤＩＴ用に全て壁になっています"
  5. 50 LOCATE 30,6:PRINT"呼び出してご利用下さい"
  6. 60 SU=1:R$="A":WHILE R$="A":LOCATE 35,20
  7. 70 INPUT"リタ－ンキ－を押して下さい",R$
  8. 80 WEND
  9. 90 CLS 0:CLEAR:DIM XY(10,10)
  10. 100 FOR Y=0 TO 9 STEP 1
  11. 110 FOR X=0 TO 9 STEP 1
  12. 120  XY(X,Y)=0
  13. 130 NEXT X
  14. 140 NEXT Y
  15. 150 SU=1:WHILE SU
  16. 160 LOCATE 30,1:PRINT"FILEを読み込みますか Y/N" 
  17. 170 LOCATE 10,3:FIL$=INPUT$(1):IF FIL$="Y" OR FIL$="N" THEN SU=0 
  18. 180 WEND
  19. 190 WHILE FIL$="Y"
  20. 200 LOCATE 30,5: PRINT"INPUT FILE-NOMBER" 
  21. 210 LOCATE 10,6: INPUT STA:IF STA<1 OR STA>39 THEN GOTO 210
  22. 220 FIL$="N"
  23. 230 GYOU%=STA*40
  24. 240 OPEN "I",#1,"S64DAT.DAT"
  25. 250 INPUT #1 ,GYO%
  26. 260 IF GYOU%>GYO% OR GYOU%<GYO% THEN GOTO 250
  27. 270 INPUT#1,STA,M,XY(0,0),XY(1,0),XY(2,0),XY(3,0),XY(4,0),XY(5,0),XY(6,0),      XY(7,0),XY(8,0),XY(9,0),XY(0,1),XY(1,1),XY(2,1),XY(3,1),XY(4,1),            XY(5,1),XY(6,1),XY(7,1),XY(8,1),XY(9,1),XY(0,2),XY(1,2),XY(2,2),            XY(3,2),XY(4,2)
  28. 280 INPUT#1,GYO%,XY(5,2),XY(6,2),XY(7,2),XY(8,2),XY(9,2),XY(0,3),XY(1,3),       XY(2,3),XY(3,3),XY(4,3),XY(5,3),XY(6,3),XY(7,3),XY(8,3),XY(9,3),            XY(0,4),XY(1,4),XY(2,4),XY(3,4),XY(4,4),XY(5,4),XY(6,4),XY(7,4),            XY(8,4),XY(9,4)
  29. 290 INPUT#1,GYO%,XY(0,5),XY(1,5),XY(2,5),XY(3,5),XY(4,5),XY(5,5),XY(6,5),       XY(7,5),XY(8,5),XY(9,5),XY(0,6),XY(1,6),XY(2,6),XY(3,6),XY(4,6),            XY(5,6),XY(6,6),XY(7,6),XY(8,6),XY(9,6),XY(0,7),XY(1,7),XY(2,7),            XY(3,7),XY(4,7) 
  30. 300 INPUT#1,GYO%,XY(5,7),XY(6,7),XY(7,7),XY(8,7),XY(9,7),XY(0,8),XY(1,8),       XY(2,8),XY(3,8),XY(4,8),XY(5,8),XY(6,8),XY(7,8),XY(8,8),XY(9,8),            XY(0,9),XY(1,9),XY(2,9),XY(3,9),XY(4,9),XY(5,9),XY(6,9),XY(7,9),            XY(8,9),XY(9,9)
  31. 310 CLOSE#1
  32. 320 WEND
  33. 330 SYMBOL(64,148),"1 2 3 4 5 6 7 8",1,1,2
  34. 340 SYMBOL(48,173),"A",1,1,2:SYMBOL(48,192),"B",1,1,2
  35. 350 SYMBOL(48,211),"C",1,1,2:SYMBOL(48,230),"D",1,1,2
  36. 360 SYMBOL(48,249),"E",1,1,2:SYMBOL(48,268),"F",1,1,2
  37. 370 SYMBOL(48,287),"G",1,1,2:SYMBOL(48,306),"H",1,1,2
  38. 380 FOR X=60 TO 188 STEP 16
  39. 390 LINE(X,169)-(X,321),PSET,2
  40. 400 NEXT X
  41. 410 FOR Y=169 TO 321 STEP 19
  42. 420 LINE(60,Y)-(188,Y),PSET,2
  43. 430 NEXT Y
  44. 440 YN$="Y"
  45. 450 WHILE YN$="Y"
  46. 460   CLS 4
  47. 470   FOR X=1 TO 8
  48. 480   FOR Y=1 TO 8
  49. 490     IF XY(X,Y)=12 THEN LOCATE 2*X+6,Y+8:PRINT"*"
  50. 500   NEXT Y
  51. 510   NEXT X
  52. 520   LOCATE 30,1: PRINT"HENKOU WO SIMASUKA"
  53. 530   LOCATE 30,2: PRINT"INPUT Y/N"
  54. 540  SU=1:WHILE SU
  55. 550   LOCATE 50,2: YN$=INPUT$(1)
  56. 560   IF YN$="Y" THEN SU=0:GOSUB *HENKOU
  57. 570   IF YN$="N" THEN SU=0
  58. 580  WEND
  59. 590 WEND
  60. 600   M1=0:M2=0
  61. 610   FOR X=1 TO 8 
  62. 620   FOR Y=1 TO 8
  63. 630      IF XY(X,Y)=0 M1=M1+1
  64. 640   NEXT Y
  65. 650   NEXT X
  66. 660   M2=INT(M1/2)
  67. 670   IF M1/2 > M2 OR M1<4 THEN LOCATE 30,22:CLS 4:PRINT"KAZU GA ATTE"                 "IMASEN":GOTO 470
  68. 680   GOSUB *SAKUSEI
  69. 690 END
  70. 700 *HENKOU
  71. 710   LOCATE 30,1 :PRINT"DOKO WO HENKOU SIMASUKA"
  72. 720   LOCATE 30,2 :PRINT"INPUT X(1～8) ,Y(A～H) "
  73. 725   INPUT X,Y$:Y=ASC(Y$)-64 
  74. 730   IF X<1 OR X>8 OR Y<1 OR Y>8 THEN LOCATE 30,3:                                PRINT"MOUICHIDO IRETE KUDASAI":GOTO 720
  75. 740   IF XY(X,Y)=0 THEN XY(X,Y)=12 ELSE XY(X,Y)=0
  76. 750   RETURN
  77. 760 *SAKUSEI
  78. 770   M%=M2
  79. 780   LOCATE 40,4:INPUT"INPUT FILE NUMBER(18)～(38)",NU%
  80. 790   IF NU%<18 OR NU%>38 THEN GOTO 780 
  81. 800   N%=NU%*40
  82. 810   OPEN "S64DAT.DAT" FOR APPEND AS #1
  83. 820   WRITE#1,N%,NU%,M%XY(0,0)XY(1,0)XY(2,0)XY(3,0)XY(4,0)XY(5,0)XY(6,0)           XY(7,0)XY(8,0)XY(9,0)XY(0,1)XY(1,1)XY(2,1)XY(3,1)XY(4,1)XY(5,1)             XY(6,1)XY(7,1)XY(8,1)XY(9,1)XY(0,2)XY(1,2)XY(2,2)XY(3,2)XY(4,2)
  84. 830 WRITE#1,N%+10,XY(5,2)XY(6,2)XY(7,2)XY(8,2)XY(9,2)XY(0,3)XY(1,3)                XY(2,3)XY(3,3)XY(4,3)XY(5,3)XY(6,3)XY(7,3)XY(8,3)XY(9,3)XY(0,4)             XY(1,4)XY(2,4)XY(3,4)XY(4,4)XY(5,4)XY(6,4)XY(7,4)XY(8,4)XY(9,4)
  85. 840   WRITE#1,N%+20,XY(0,5)XY(1,5)XY(2,5)XY(3,5)XY(4,5)XY(5,5)XY(6,5)              XY(7,5)XY(8,5)XY(9,5)XY(0,6)XY(1,6)XY(2,6)XY(3,6)XY(4,6)XY(5,6)             XY(6,6)XY(7,6)XY(8,6)XY(9,6)XY(0,7)XY(1,7)XY(2,7)XY(3,7)XY(4,7)
  86. 850   WRITE#1,N%+30,XY(5,7)XY(6,7)XY(7,7)XY(8,7)XY(9,7)XY(0,8)XY(1,8)              XY(2,8)XY(3,8)XY(4,8)XY(5,8)XY(6,8)XY(7,8)XY(8,8)XY(9,8)XY(0,9)             XY(1,9)XY(2,9)XY(3,9)XY(4,9)XY(5,9)XY(6,9)XY(7,9)XY(8,9)XY(9,9)
  87. 860   CLOSE #1
  88. 870 RETURN
  89.